VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CComboEx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Public Event Change()
Public Event Click()
Public Event DblClick()
Public Event DragDrop(Source As Object, X As Integer, Y As Integer)
Public Event DragOver(Source As Object, X As Integer, Y As Integer, State As Integer)
Public Event DropDown()
Public Event GotFocus()
Public Event KeyDown(KeyCode As Integer, Shift As Integer)
Public Event KeyPress(KeyAscii As Integer)
Public Event KeyUp(KeyCode As Integer, Shift As Integer)
Public Event LostFocus()
Public Event OLEDragOver(Data As DataObject, Effect As Integer, Button As Integer, Shift As Integer, X As Integer, Y As Integer, State As Integer)
Public Event OLEDragDrop(Data As DataObject, Effect As Integer, Button As Integer, Shift As Integer, X As Integer, Y As Integer)
Public Event OLEGiveFeedback(Effect As Integer, DefaultCursors As Integer)
Public Event OLEStartDrag(Data As DataObject, AllowedEffects As Integer)
Public Event OLESetData(Data As DataObject, DataFormat As Integer)
Public Event OLECompleteDrag(Effect As Integer)
Public Event Scroll()



Public Property Get Name() As Integer

End Property

Public Property Get Style() As Integer

End Property

Public Property Get Index() As Integer

End Property

Public Property Get BackColor() As Integer

End Property

Public Property Let BackColor(ByVal vData As Integer)

End Property

Public Property Get ForeColor() As Integer

End Property

Public Property Let ForeColor(ByVal vData As Integer)

End Property

Public Property Get Left() As Integer

End Property

Public Property Let Left(ByVal vData As Integer)

End Property

Public Property Get Top() As Integer

End Property

Public Property Let Top(ByVal vData As Integer)

End Property

Public Property Get Width() As Integer

End Property

Public Property Let Width(ByVal vData As Integer)

End Property

Public Property Get Height() As Integer

End Property

Public Property Let Height(ByVal vData As Integer)

End Property

Public Property Get Enabled() As Integer

End Property

Public Property Let Enabled(ByVal vData As Integer)

End Property

Public Property Get Visible() As Integer

End Property

Public Property Let Visible(ByVal vData As Integer)

End Property

Public Property Get MousePointer() As Integer

End Property

Public Property Let MousePointer(ByVal vData As Integer)

End Property

Public Property Get Text() As Integer

End Property

Public Property Let Text(ByVal vData As Integer)

End Property

Public Property Get FontName() As Integer

End Property

Public Property Let FontName(ByVal vData As Integer)

End Property

Public Property Get FontBold() As Integer

End Property

Public Property Let FontBold(ByVal vData As Integer)

End Property

Public Property Get FontItalic() As Integer

End Property

Public Property Let FontItalic(ByVal vData As Integer)

End Property

Public Property Get FontStrikethru() As Integer

End Property

Public Property Let FontStrikethru(ByVal vData As Integer)

End Property

Public Property Get FontUnderline() As Integer

End Property

Public Property Let FontUnderline(ByVal vData As Integer)

End Property

Public Property Get FontSize() As Integer

End Property

Public Property Let FontSize(ByVal vData As Integer)

End Property

Public Property Get TabIndex() As Integer

End Property

Public Property Let TabIndex(ByVal vData As Integer)

End Property

Public Property Get ListCount() As Integer

End Property

Public Property Get ListIndex() As Integer

End Property

Public Property Let ListIndex(ByVal vData As Integer)

End Property

Public Property Get List(Index As Integer) As Integer

End Property

Public Property Let List(Index As Integer, ByVal vData As Integer)

End Property

Public Property Get Sorted() As Integer

End Property

Public Property Get SelStart() As Integer

End Property

Public Property Let SelStart(ByVal vData As Integer)

End Property

Public Property Get SelLength() As Integer

End Property

Public Property Let SelLength(ByVal vData As Integer)

End Property

Public Property Get SelText() As Integer

End Property

Public Property Let SelText(ByVal vData As Integer)

End Property

Public Property Get Parent() As Object

End Property

Public Property Get DragMode() As Integer

End Property

Public Property Let DragMode(ByVal vData As Integer)

End Property

Public Property Let DragIcon(ByVal vData As Picture)

End Property

Public Property Get DragIcon() As Picture

End Property

Public Property Get TabStop() As Integer

End Property

Public Property Let TabStop(ByVal vData As Integer)

End Property

Public Property Get Tag() As Integer

End Property

Public Property Let Tag(ByVal vData As Integer)

End Property

Public Property Get hWnd() As Integer

End Property

Public Property Get ItemData(Index As Integer) As Integer

End Property

Public Property Let ItemData(Index As Integer, ByVal vData As Integer)

End Property

Public Property Get NewIndex() As Integer

End Property

Public Property Get HelpContextID() As Integer

End Property

Public Property Let HelpContextID(ByVal vData As Integer)

End Property

Public Property Get MouseIcon() As Picture

End Property

Public Property Let MouseIcon(ByVal vData As Picture)

End Property

Public Property Get Font() As Font

End Property

Public Property Get DataField() As Integer

End Property

Public Property Let DataField(ByVal vData As Integer)

End Property

Public Property Get DataChanged() As Integer

End Property

Public Property Let DataChanged(ByVal vData As Integer)

End Property

Public Property Get WhatsThisHelpID() As Integer

End Property

Public Property Let WhatsThisHelpID(ByVal vData As Integer)

End Property

Public Property Get Appearance() As Integer

End Property

Public Property Get Container() As Integer

End Property

Public Property Get IntegralHeight() As Integer

End Property

Public Property Get RightToLeft() As Integer

End Property

Public Property Let RightToLeft(ByVal vData As Integer)

End Property

Public Property Get ToolTipText() As Integer

End Property

Public Property Let ToolTipText(ByVal vData As Integer)

End Property

Public Property Get OLEDragMode() As Integer

End Property

Public Property Let OLEDragMode(ByVal vData As Integer)

End Property

Public Property Get OLEDropMode() As Integer

End Property

Public Property Let OLEDropMode(ByVal vData As Integer)

End Property

Public Property Get Locked() As Integer

End Property

Public Property Let Locked(ByVal vData As Integer)

End Property

Public Property Get TopIndex() As Integer

End Property

Public Property Let TopIndex(ByVal vData As Integer)

End Property

Public Function Clear() As Integer

End Function

Public Function AddItem(Item As Integer, Optional Index As Integer) As Integer

End Function

Public Function RemoveItem(Index As Integer) As Integer

End Function

Public Function SetFocus() As Integer

End Function

Public Function Refresh() As Integer

End Function

Public Function ZOrder(Optional Position As Integer) As Integer

End Function

Public Function Drag(Optional Action As Integer) As Integer

End Function

Public Function Move(Left As Integer, Optional Top As Integer, Optional Width As Integer, Optional Height As Integer) As Integer

End Function

Public Function ShowWhatsThis() As Integer

End Function

Public Function OLEDrag() As Integer

End Function


